home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
PROBLEMS
/
GAWK
/
KILLCR
next >
Wrap
Text File
|
1992-01-07
|
388b
|
8 lines
if "%0"="" then echo syntax killcr outputfile inputfile
if "%0"="" then echo
if "%0"="" then error 0 name of outputfile and inputfile needed
if "%1"="" then error 0 name of inputfile needed
type %1 -tabexpand { > /dev/temp }
gawk -v outfile="%0" "BEGIN {f=0;} /^/ { if (f==1) {x=substr($0,2); printf(\"%s\n\",x) > outfile; } else {printf(\"%s\n\",$0) > outfile;f=1;} }" /dev/temp
*quit